This is a template shitty presentation about how awesome mountains are and how dope the people at the Nederlandse Studenten Alpen Club are for trying to climb them.

Check out the website of the NSAC at https://nsac.alpenclub.nl/.

ID <- c(1:30)
exp_years <- round(rnorm(30, 5, 1), 
                   digits = 0)
mnts_climbed <- 0.8*exp_years + round(rnorm(30, 10, 5), 
                                      digits = 0)
fun_had <- round(0.6*exp_years + 0.8*mnts_climbed + rnorm(1, 0, 1), 
                 digits = 0)

bergdat <- as.data.frame(cbind(ID, exp_years, mnts_climbed, fun_had))